home *** CD-ROM | disk | FTP | other *** search
/ Aminet 39 / Aminet 39 (2000)(Schatztruhe)[!][Oct 2000].iso / Aminet / util / conv / List2HTML.lha / List2HTML / Source / Statements / Exist < prev    next >
Unknown  |  1999-03-15  |  1.4 KB
open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text


This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
100% file data default
100% gt2 Kopftext: '.Exist' default (weak)


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 2e 45 78 69 73 74 00 00 | 3b 20 46 75 6e 63 74 69 |.Exist..|; Functi|
|00000010| 6f 6e 20 3a 20 45 78 69 | 73 74 20 7b 20 66 69 6c |on : Exi|st { fil|
|00000020| 65 6e 61 6d 65 20 7d 00 | 00 3b 20 41 75 74 68 6f |ename }.|.; Autho|
|00000030| 72 20 3a 20 4a 61 6d 65 | 73 20 4c 20 42 6f 79 64 |r : Jame|s L Boyd|
|00000040| 20 2d 20 6a 61 6d 65 73 | 62 6f 79 64 40 61 6c 6c | - james|boyd@all|
|00000050| 2d 68 61 69 6c 2e 66 72 | 65 65 73 65 72 76 65 2e |-hail.fr|eeserve.|
|00000060| 63 6f 2e 75 6b 00 00 3b | 20 4e 4f 54 45 20 3a 20 |co.uk..;| NOTE : |
|00000070| 54 68 69 73 20 66 75 6e | 63 74 69 6f 6e 20 72 65 |This fun|ction re|
|00000080| 70 6c 61 63 65 73 20 74 | 68 65 20 49 73 54 68 65 |places t|he IsThe|
|00000090| 72 65 20 7b 7d 20 66 75 | 6e 63 74 69 6f 6e 2c 00 |re {} fu|nction,.|
|000000a0| 3b 20 20 20 20 20 20 20 | 20 73 69 6e 63 65 20 49 |;       | since I|
|000000b0| 73 54 68 65 72 65 20 7b | 7d 20 6f 6e 6c 79 20 74 |sThere {|} only t|
|000000c0| 6f 6c 64 20 79 6f 75 20 | 69 66 20 74 68 65 20 66 |old you |if the f|
|000000d0| 69 6c 65 20 77 61 73 20 | 74 68 65 72 65 2e 00 00 |ile was |there...|
|000000e0| 3b 20 46 75 6c 6c 20 72 | 65 70 6c 61 63 65 6d 65 |; Full r|eplaceme|
|000000f0| 6e 74 20 66 6f 72 20 45 | 78 69 73 74 73 28 29 2c |nt for E|xists(),|
|00000100| 20 62 75 74 20 75 73 65 | 73 20 4f 53 20 66 75 6e | but use|s OS fun|
|00000110| 63 74 69 6f 6e 73 20 74 | 6f 20 72 65 74 75 72 6e |ctions t|o return|
|00000120| 00 3b 20 66 69 6c 65 20 | 73 69 7a 65 2e 00 00 3b |.; file |size...;|
|00000130| 20 52 65 74 75 72 6e 20 | 76 61 6c 75 65 73 20 3a | Return |values :|
|00000140| 00 00 3b 20 20 30 20 2d | 20 63 61 6e 27 74 20 67 |..;  0 -| can't g|
|00000150| 65 74 20 61 20 6c 6f 63 | 6b 20 28 72 65 61 64 20 |et a loc|k (read |
|00000160| 3a 20 66 69 6c 65 20 69 | 73 6e 27 74 20 74 68 65 |: file i|sn't the|
|00000170| 72 65 29 00 3b 20 2d 31 | 20 2d 20 66 69 6c 65 20 |re).; -1| - file |
|00000180| 69 73 20 61 20 64 69 72 | 65 63 74 6f 72 79 20 6f |is a dir|ectory o|
|00000190| 72 20 64 69 73 6b 20 28 | 73 61 6d 65 20 61 73 20 |r disk (|same as |
|000001a0| 45 78 69 73 74 73 20 72 | 65 74 75 72 6e 73 29 00 |Exists r|eturns).|
|000001b0| 3b 20 2d 32 20 2d 20 67 | 6f 74 20 6c 6f 63 6b 20 |; -2 - g|ot lock |
|000001c0| 62 75 74 20 63 6f 75 6c | 64 6e 27 74 20 67 65 74 |but coul|dn't get|
|000001d0| 20 73 69 7a 65 20 28 45 | 78 61 6d 69 6e 65 5f 20 | size (E|xamine_ |
|000001e0| 66 61 69 6c 65 64 20 2d | 20 72 61 72 65 21 29 00 |failed -| rare!).|
|000001f0| 00 3b 20 54 68 69 73 20 | 77 69 6c 6c 20 72 65 64 |.; This |will red|
|00000200| 75 63 65 20 74 68 65 20 | 73 69 7a 65 20 6f 66 20 |uce the |size of |
|00000210| 61 6e 20 65 78 65 63 75 | 74 61 62 6c 65 20 61 73 |an execu|table as|
|00000220| 20 77 65 6c 6c 20 61 73 | 20 74 68 65 20 66 61 63 | well as| the fac|
|00000230| 74 00 3b 20 74 68 61 74 | 20 45 78 69 73 74 73 20 |t.; that| Exists |
|00000240| 6b 65 65 70 73 20 61 20 | 66 69 6c 65 20 6c 6f 63 |keeps a |file loc|
|00000250| 6b 65 64 20 75 6e 74 69 | 6c 20 74 68 65 20 70 72 |ked unti|l the pr|
|00000260| 6f 67 72 61 6d 20 65 6e | 64 73 2c 00 3b 20 6d 65 |ogram en|ds,.; me|
|00000270| 61 6e 69 6e 67 20 79 6f | 75 20 63 61 6e 27 74 20 |aning yo|u can't |
|00000280| 64 65 6c 65 74 65 20 69 | 74 20 6f 72 20 70 65 72 |delete i|t or per|
|00000290| 66 6f 72 6d 20 73 6f 6d | 65 20 6f 74 68 65 72 20 |form som|e other |
|000002a0| 6f 70 65 72 61 74 69 6f | 6e 73 00 3b 20 6f 6e 20 |operatio|ns.; on |
|000002b0| 69 74 20 3a 00 00 3b 20 | 65 67 2e 20 54 68 69 73 |it :..; |eg. This|
|000002c0| 20 77 6f 6e 27 74 20 64 | 65 6c 65 74 65 20 74 68 | won't d|elete th|
|000002d0| 65 20 66 69 6c 65 20 3a | 00 00 3b 20 49 66 20 45 |e file :|..; If E|
|000002e0| 78 69 73 74 73 28 22 53 | 59 53 3a 6d 75 6c 74 69 |xists("S|YS:multi|
|000002f0| 76 69 65 77 22 29 00 3b | 20 20 20 44 65 6c 65 74 |view").;|   Delet|
|00000300| 65 46 69 6c 65 5f 20 22 | 73 79 73 3a 6d 75 6c 74 |eFile_ "|sys:mult|
|00000310| 69 76 69 65 77 22 20 3b | 20 75 68 2d 75 68 20 2d |iview" ;| uh-uh -|
|00000320| 20 66 69 6c 65 27 73 00 | 3b 20 45 6e 64 49 66 20 | file's.|; EndIf |
|00000330| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000340| 20 20 20 20 20 20 20 20 | 3b 20 6c 6f 63 6b 65 64 |        |; locked|
|00000350| 20 62 79 20 45 78 69 73 | 74 73 21 00 00 3b 20 42 | by Exis|ts!..; B|
|00000360| 75 74 20 74 68 69 73 20 | 77 69 6c 6c 20 3a 00 00 |ut this |will :..|
|00000370| 3b 20 49 66 20 45 78 69 | 73 74 20 7b 22 53 59 53 |; If Exi|st {"SYS|
|00000380| 3a 6d 75 6c 74 69 76 69 | 65 77 22 7d 00 3b 20 20 |:multivi|ew"}.;  |
|00000390| 20 44 65 6c 65 74 65 46 | 69 6c 65 5f 20 22 73 79 | DeleteF|ile_ "sy|
|000003a0| 73 3a 6d 75 6c 74 69 76 | 69 65 77 22 00 3b 20 45 |s:multiv|iew".; E|
|000003b0| 6e 64 49 66 00 00 80 09 | 2e 6c 20 45 78 69 73 74 |ndIf....|.l Exist|
|000003c0| 20 7b 66 24 7d 00 00 6c | 6f 63 6b 2e 6c 3d fe 0a | {f$}..l|ock.l=..|
|000003d0| 28 26 66 24 2c 23 41 43 | 43 45 53 53 5f 52 45 41 |(&f$,#AC|CESS_REA|
|000003e0| 44 29 00 00 80 0b 20 6c | 6f 63 6b 00 00 80 33 20 |D).... l|ock...3 |
|000003f0| 2e 46 69 6c 65 49 6e 66 | 6f 42 6c 6f 63 6b 20 66 |.FileInf|oBlock f|
|00000400| 69 62 00 00 80 0b 20 fe | 0d 28 6c 6f 63 6b 2c 20 |ib.... .|.(lock, |
|00000410| 66 69 62 29 20 3c 3e 20 | 30 00 00 20 20 80 0b 20 |fib) <> |0..  .. |
|00000420| 66 69 62 5c 66 69 62 5f | 44 69 72 45 6e 74 72 79 |fib\fib_|DirEntry|
|00000430| 54 79 70 65 20 3c 20 30 | 00 20 20 20 20 73 69 7a |Type < 0|.    siz|
|00000440| 65 3d da 02 2e 6c 28 26 | 66 69 62 5c 66 69 62 5f |e=...l(&|fib\fib_|
|00000450| 53 69 7a 65 29 20 20 3b | 20 66 69 6c 65 00 20 20 |Size)  ;| file.  |
|00000460| 80 22 20 73 69 7a 65 3d | 2d 31 20 20 20 20 20 20 |." size=|-1      |
|00000470| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 20 64 72 |        |    ; dr|
|00000480| 61 77 65 72 00 20 20 80 | c0 00 00 20 20 80 22 20 |awer.  .|...  ." |
|00000490| 73 69 7a 65 3d 2d 32 20 | 3b 20 66 61 69 6c 65 64 |size=-2 |; failed|
|000004a0| 20 74 6f 20 65 78 61 6d | 69 6e 65 20 66 69 6c 65 | to exam|ine file|
|000004b0| 21 20 72 61 72 65 20 6f | 63 63 75 72 65 6e 63 65 |! rare o|ccurence|
|000004c0| 21 00 80 c0 00 00 fe 0b | 20 6c 6f 63 6b 00 80 22 |!.......| lock.."|
|000004d0| 20 73 69 7a 65 3d 30 20 | 3b 20 66 61 69 6c 65 64 | size=0 |; failed|
|000004e0| 20 74 6f 20 6c 6f 63 6b | 20 66 69 6c 65 20 28 64 | to lock| file (d|
|000004f0| 6f 65 73 6e 27 74 20 65 | 78 69 73 74 20 62 61 73 |oesn't e|xist bas|
|00000500| 69 63 61 6c 6c 79 29 2e | 2e 2e 00 80 c0 00 00 80 |ically).|........|
|00000510| 09 20 80 07 20 73 69 7a | 65 00 00 80 02 20 80 09 |. .. siz|e.... ..|
|00000520| 00 00 3b 20 64 65 6d 6f | 20 3a 00 00 3b 20 66 24 |..; demo| :..; f$|
|00000530| 3d 22 53 59 53 3a 55 74 | 69 6c 69 74 69 65 73 2f |="SYS:Ut|ilities/|
|00000540| 4d 75 6c 74 69 76 69 65 | 77 22 00 00 3b 20 62 79 |Multivie|w"..; by|
|00000550| 74 65 73 2e 6c 3d 45 78 | 69 73 74 20 7b 66 24 7d |tes.l=Ex|ist {f$}|
|00000560| 00 00 3b 20 52 65 71 75 | 65 73 74 20 22 22 2c 22 |..; Requ|est "","|
|00000570| 53 69 7a 65 20 6f 66 20 | 3a 7c 7c 22 2b 66 24 2b |Size of |:||"+f$+|
|00000580| 22 7c 7c 69 73 20 22 2b | 53 74 72 24 28 62 79 74 |"||is "+|Str$(byt|
|00000590| 65 73 29 2b 22 20 62 79 | 74 65 73 2e 22 2c 22 4f |es)+" by|tes.","O|
|000005a0| 4b 22 00 3b 20 45 6e 64 | 00 00                   |K".; End|..      |
+--------+-------------------------+-------------------------+--------+--------+